home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / GS.PTD / SCRIPTS / KBD.SCP < prev    next >
Encoding:
Text File  |  1988-04-25  |  12.0 KB  |  607 lines  |  [04] ASCII Text (0x0001)
  1.  
  2. %if¶backÏinkÌenu
  3. %code∞≥
  4. %palette≥20∞π±0±5Âscreen‚order±5
  5. %window∞∑0∂40≤00
  6. œneÌoment,lease.†Your¡pple¶NÈsreparingÙheÛection„alled
  7. ¢Communicating."†(Don'tÊorget--whenever˘ou˜antÙoÁo‚ackÙoÙhe
  8. ÌainÌenu,ÍustressÙhe≈scÎey.)
  9. %code±∞˜ait∞
  10. %loadinst±ÁuitarÁuitar.l¢"˜ait∞
  11. %loadinstµ‚sqıgh.wß'˜ait∞
  12. %loadinst∞ÛplashÛplash.wß'˜ait∞
  13. %preloadÛfx/splash.inst
  14. %loadinst≤‰rumËidrum.wß'˜ait∞
  15. %loadinst≥‰rumÏodrum.wß'˜ait∞
  16. %preloadÛfx/bass.l˜ait∞
  17. %sÀ¢%loadinst¥Ûtring‚ass.lß'"¯¶K˜ait∞
  18. %preload‰ata/wp.menu˜ait∞
  19. %preloadÁfx/cues˜ait∞
  20. %preloadÁfx/altcues˜ait∞
  21. %preload‰ata/monaco.9˜ait∞
  22. %preloadÛfx/menu3open.song†wait∞
  23. %preloadÛfx/menu3exit.song˜ait∞
  24. %preloadÛfx/chomp.w˜ait∞
  25. %preloadÛfx/mazeexit.song˜ait∞
  26. %preloadÛfx/fx.inst˜ait∞
  27. %preloadÛfx/horn.w˜ait∞
  28. %preloadÁfx/m1.01†wait∞
  29. %preloadÁfx/m1.10†wait∞
  30. %preloadÁfx/m1.11†wait∞
  31. %preloadÁfx/m1.12†wait∞
  32. %preloadÁfx/m1.12a˜ait∞
  33. %preloadÁfx/m1.27†wait∞
  34. %preloadÁfx/m1.27ani˜ait∞
  35. %preloadÁfx/m2.02†wait∞
  36. %preloadÁfx/m1.32†wait∞
  37. %preloadÁfx/m1.32c˜ait∞
  38. %preloadÛfx/splasf.inst˜ait∞
  39. %s±¢"„ode∞≤
  40. %sfxÌenu3exit
  41.  
  42. %m 1
  43. %s∂¢%window¥4±43¥36≤00"
  44. %s∑¢%windowµ0±53¥36≤00"
  45. %escreen
  46. %palette≥20∞π±0±5„ues¥54±82
  47. %gfx∞Ì1.01±92±7¯¶7‚oldÔn˜rapÔff
  48. COMMUNICATING
  49. %boldÔff¯¶K
  50.  
  51. ToÌakeÙhe¡pple¢&n"˜ork,˘ou
  52. haveÙoÙellÈt˜hatÙo‰o.
  53. %get act
  54.  
  55. %m 2
  56. %if¶backÂraserect¥0±85≤40≤00
  57. %e
  58. %wrapÔff
  59. You„an„ommunicateÈnÙwo˜ays:
  60. %centerÔffalette≥20µ±5∞∞
  61.  
  62. &P‚yısingÙheÌouse
  63. &P‚yısingÙheÎeyboard
  64. %centerÔn
  65. %get act e
  66.  
  67. %m 3
  68. %if¶backΩ∞Ûkip±
  69. %escreenalette≥20∞π±0±5„ode∞µ
  70. %gfx∞Ì1.01±92±7alette≥20µ±5∞∞
  71. %s∂¢%window¥4±43¥36≤00"
  72. %s∑¢%windowµ0±53¥36≤00"
  73. %w
  74. %x¶7
  75. You've·lreadyÏearned·boutısingÙheÌouseÙo
  76. point,„lick,·nd‰rag.†If˘ou'dÏike·ÏittleÌore
  77. mousingractice,„lickÙheÕoreÕouse–ractice
  78. button.‘oÁoÔn,„lickÙheΔorward¡rrow.
  79. %code∞µÛ·rea±¥58±67∂30±80
  80. %gfxµÌ1.10¥54±66
  81. %s¥¢theÕoreÕouse–ractice‚utton"
  82. %get any
  83. %if¶actΩ≠1Í´±
  84. %if¶actΩ≥Í´≤
  85. %e
  86. For·ÏittleÌoreÌousingractice,
  87. clickÙheÕoreÕouse–ractice‚utton.
  88. ToÁoÔn,„lickÙheΔorward¡rrow.
  89. %j get
  90.  
  91. %m 4
  92. %if¶backÍ‚ack
  93. %escreenalette≥20∞±0±0±0‚order±1
  94. %gfx∞Ì1.11≥8±1
  95. %window≥8±80¥22±99˜rapÔn
  96. ClickÙheÓumbers,ÈnÔrder.
  97. %window≥8±78¥22≤00
  98. %s·rea±≥22,≤1≥50†35
  99. %s·rea≤µ22†46µ50†60
  100. %s·rea≥±82†62≤10,∑6
  101. %s·rea¥µ50,107µ78,121
  102. %s·reaµ†90,126±18,140
  103. %s·rea∂¥28,115¥56,129
  104. %s 4 "the first signpost" get click
  105. %if &act <> -1 rem click j get
  106. %hilite·rea±∞
  107. %sfx≤
  108. 4±8µ5∞±27
  109. 4±8∂0∞±27
  110.  
  111. %s 4 "the second signpost" get click
  112. %if &act <> -2 rem click j get
  113. %hilite·rea≤∞
  114. %sfx≤
  115. 4±8∂7∞±27
  116. 4±8∂0∞±27
  117. %s 4 "the third signpost" get click
  118. %if &act <> -3 rem click j get
  119. %hilite·rea≥∞
  120. %sfx≤
  121. 4±8∂4∞±27
  122. 4±8µ7∞±27
  123. %s 4 "the fourth signpost" get click
  124. %if &act <> -4 rem click j get
  125. %hilite·rea¥∞
  126. %sfx≤
  127. 4±8∂4∞±27
  128. 4±8∂9∞±27
  129. %s 4 "the fifth signpost" get click
  130. %if &act <> -5 rem click j get
  131. %hilite·reaµ∞
  132. %sfx≤
  133. 4±8µ5∞±27
  134. 4±8∂0∞±27
  135. %s 4 "the sixth signpost" get click
  136. %if &act <> -6 rem click j get
  137. %hilite·rea∂∞
  138. %sfx≥
  139. 4†14∂4∞±27
  140. 4†14∂7∞±27
  141. 4†14∂0∞±27
  142.  
  143. %m 5
  144. %code∞µ
  145. %s∂¢%window¥4±43¥09≤00"
  146. %s∑¢%box¥10±37∂27±80"
  147. %s∏¢%window¥27±43∂19±75"
  148. %sπ¢%bcolor≥Âraserect∏±50¥34±96"
  149. %s√¢%fcolor∞¿wt∞∞"
  150. %s≈¢%window≥4≥4µ72±49"
  151. %sΔ¢%bcolor≥‚ox∂±49¥42≤00"
  152. %s«¢%window≤6±56¥28±94"
  153.  
  154. %palette≥20∞π±0±5Âscreen‚order≤
  155. %gfx¥Ì1.12∞∏
  156. %x¶6˜rapÔff
  157. AnotherÌeansÔf„ommunicating˜ithÙhe
  158. Apple¢&n"ÈsÙheÎeyboard.†As˘ou„anÛee,
  159. it'sÌoreÔrÏessÏikeÙheÎeyboardÔf·
  160. typewriter.†ButÙhere·reÛome‰ifferences.
  161. %get act
  162.  
  163. %m 6
  164. %if¶backınbox˜indow¥4±38¥09≤00¯¶6
  165. %e
  166. %gfxpart±Ì1.12aµ68≥2†208∞≤72±8
  167. TheƒeleteÎeyÈs˘ourÂraser.
  168. YouıseÈtÙoÚemoveÙhings
  169. fromÙheÛcreen.
  170. %get act
  171.  
  172. %m 7
  173. %window¥4±38¥09≤00Â
  174. SupposeÙheÛentenceÙoÙheÚightÈs
  175. incorrect.†MakeÈt„orrect‚yÙaking
  176. outÙheÏast˜ord.
  177.  
  178. %wrapÔff„enterÔff
  179. &Pœn˘ourÎeyboard,ressƒelete
  180. †ÛevenÙimes.
  181. %x¶7¯¶8˜rapÔn„enterÔn
  182. %s‰¢surgeon."Û¥ƒeleteÛ≤∑Û±∑˜rapÔff
  183. ErnestÈs·Ùerrific
  184. %wrapÔn
  185. brain
  186. %point
  187. %code±≥1
  188. %wrapÔff
  189. %s≥¶ans
  190. %if¶actΩ≥Í´±
  191. %if¶keyΩ±27Ûkip±
  192. %window¥4±38¥09≤00˜rapÔff
  193. That˜asn'tÙheƒeleteÎey.†Please
  194. pressÙheƒeleteÎey·†fewÌoreÙimes
  195. untilÙhe˜ord¢surgeon"ÈsÁone.
  196. %j point
  197. %w
  198. %sfx≤
  199. 4±8∂7∞±27
  200. 4±8∂0∞±27
  201.  
  202. %m 8
  203. %if¶back¯¶7˜rapÔff
  204. %e˜indow¥4±38¥09≤00„enterÔff
  205. Say˘ou˜antÙoÂraseÙhe˜holeÛentence.
  206. You‰on'tËaveÙoressÙheƒeleteÎeyÊor
  207. eachÏetter.†You„anÍustËoldÈt‰own.
  208.  
  209. &P‘ryÈt:≈raseÙheÛentence‚yËolding
  210. †‰ownÙheƒeleteÎey.
  211. %x¶8¯¶K
  212. %s≥¢ErnestÈs·Ùerrific"Ûƒ¢brain."†wrapÔff
  213. %s±∂Û≤∂
  214. &3
  215. %code±≥1
  216. %if¶actΩ≥Í´±
  217. %sƒ¶3¿wt∞∞Û±≤0Û≤≤0
  218. %code±≥1
  219. %if¶actΩ≥Í´±
  220. %sfx≥
  221. 4±2µ5∞±27
  222. 4±2∂2∞±27
  223. 4±2∂0∞±27
  224.  
  225. %m 9
  226. %if¶backÂÁfx∞Ì1.12∞∏Áfxpart∞Ì1.12aµ68≥2†208∞≤72†18
  227. %unbox˜indow¥4±38¥09≤00¯¶6˜rapÔff
  228. %if¶actΩ≥Ûkip±
  229. Good.…nÙheÚestÔfÙhisÛection,Úemember
  230. %skip≤
  231. %w
  232. InÙheÚestÔfÙhisÛection,Úemember
  233. %w
  234. thatÈf˘ouÌake·ÙypingÌistake,˘ou„an
  235. useÙheƒeleteÎeyÙo‚ackıp·ndÙhen˘ou
  236. canÚetype.
  237. %s 0 -3 get any
  238. %if (&act <> 3) and (&key <> 127) e rem act j get
  239. %if &key = 127 j get
  240.  
  241. %m 10
  242. %if¶backınbox
  243. %x¶6˜indow¥4±38¥49≤00Â
  244. %gfxpart∞Ì1.12∞∏∞∞∂34¥8
  245. %gfxpart∞Ì1.12aµ60µ0∞±9∑4µ5
  246. %s¥¢Return"
  247. PressingÙhe¶4ÎeyÈsÔften·˜ayÔfÙellingÙhe
  248. Apple¶nÙhat˘ou'reÊinished‰oingÛomething.Δor
  249. instance,˘ouress¶4ÙoÙellÙhe¡pple¢&n"
  250. you'reÊinishedÚeading·nd˜antÙoÁoÔn.
  251.  
  252. &P–ressÙhe“eturnÎeyÓow.
  253. %get any
  254. %if &key <> 13 rem key j get
  255. %sfx≤
  256. 4±8∂4∞±27
  257. 4±8∂9∞±27
  258. %w
  259. %e
  260.  
  261. %m 11
  262. %window¥4±38¥09≤00¯¶6„enterÔff
  263. Sometimes·rogram·sks˘ou·Òuestion·nd
  264. waitsÊor˘ouÙoÙypeÙhe·nswer.
  265.  
  266. %x¶K
  267. &P‘ypeÙhe·nswerÙoÙhisÒuestion·ndÙhen
  268. †ress“eturn.
  269. %x¶7¯¶8Û¥¢yourÊirstÓame"„enterÔn
  270. %point
  271. What'sß&4'?
  272. %@wt∞±
  273. %get "" 25
  274. %s≥¶raw¯¶6Â
  275. %if¶3Û<>¢"Ûkip±
  276. %wrapÔn˜indow¥4±43≤96≤00ÚemÈnp˜rapÔff¯¶6
  277. %x &8 e j point
  278. %w
  279. %sfx≥
  280. 4±2∂4∞±27
  281. 4±2∂2∞±27
  282. 4±2µ5∞±27
  283. That'sÚight,¢&3".…nÙhis
  284. case,ressing“eturnÛays,¢I've
  285. finishedÙyping.»ere'sÌyÈnformation."
  286. %get act
  287.  
  288. %m 12
  289. %unbox¯¶6Â
  290. The“eturnÎey„an·lso·ctÏikeÙhe„arriage
  291. returnÔn·Ùypewriter:ressingÈtÌoves˘ou
  292. toÙhe‚eginningÔfÙheÓextÏine.
  293. %get act
  294.  
  295. %m 13
  296. %if¶backÁfx∞Ì1.12∞∏Áfxpart∞Ì1.12aµ60µ0∞±9∑4µ5˜rapÔff
  297. %x¶7¯¶6Â
  298. Suppose˘ou're˜riting·Ïetter.†YouÙype
  299. theÁreeting.ÆÆ
  300. %wait±6
  301. %x¶8
  302. %autoÔn
  303. DearΔrank,
  304. %autoÔff
  305. %x¶6¿wt±0±
  306. andÙhen˘ou'reÚeadyÙo
  307. start·ÓewÏine.
  308.  
  309. &P–ress“eturn.
  310. %x¶K
  311. %point
  312. %x &8 @wt 7 0 get " " 1
  313. %if¶keyΩ±3Ûkip±
  314. %s¥¢Return"¯¶6ÂÚemÎey
  315. %j point
  316. %w
  317. %sfx≤
  318. 4±8∂4∞±27
  319. 4±8µ7∞±27
  320. %x¶6Â
  321. When˘ouÛtartÙyping·gain,˘our˜ords˜ill
  322. appear˜here˘ouÛeeÙhe‚linkingÏine.
  323. %x¶8¿wt∞±
  324. %time 3 get '' 0
  325. %autoÔn
  326. Our‚ootsËaveÁivenÔut.
  327. %wait≥
  328. PleaseÛend∏Ìoreairs.
  329. %autoÔff¯¶6
  330. %get act
  331.  
  332. %m 14
  333. %loadinst∂ÊxËorn.wß'
  334. %e¯¶8¯¶6Â
  335. %gfxpart∞Ì1.12∞µ0∞¥2∂34π6
  336. %gfxpart∞Ì1.12a±06±04≥62∞¥32±8
  337. The√ommandÎeyÈsÊorÁiving„ommands.†What
  338. those„ommands·re‰ependsÔnÙherogram
  339. you'reısing.Ãet'sÛay˘ourrogramıses
  340. these„ommands.
  341. %x¶8Ìoveto¥45±55
  342. Command-B†=†Beep
  343. %moveto¥45±65
  344. Command-F†=†Flash
  345. %x &6 get act
  346.  
  347. %m 15
  348. %e˜indow¥4±38¥09≤00Â
  349. %gfxpart∞Ì1.12a≤88∏6≤76∞≥16±8
  350. %gfxpart∞Ì1.12a≤24∂8±66∞≤06±8
  351. The√ommandÎeyısually‰oesn't‰o·nything˜hen
  352. youressÈt‚yÈtself.†It'sısedÈn„ombination
  353. with·notherÎey--mostÔften·ÏetterÎey.†‘ry
  354. outÔneÔfÙhe„ommands‚y‰oingÙhis:–ress
  355. the√ommandÎey·ndËoldÈt‰own˜hile˘ouress
  356. oneÔfÙheÏetterÎeys--BÔrΔ.
  357. %s·rea±¥12±38∂19±76Û¥¢BÔrΔ"†lcÔn
  358. %get any
  359. %if¶keyΩ≤26Ûkip±
  360. %if¶keyΩ≤30Ëilite·rea±±Ûkip±
  361. %if¶keyΩ±3Í´≤
  362. %e¯¶6
  363. NotÒuite.†PressÙhe√ommandÎey·ndËold
  364. it‰own˜hile˘ouress¬ÔrΔ.
  365. %j get
  366. %w
  367. %if¶keyº>≤26Ûkip±
  368. %sfxµ
  369. 6±2¥0±±10
  370. 6±2¥3∞±10
  371. 6µ†∞∞∞
  372. 6±5¥0±±10
  373. 6±5¥3∞±10
  374. %w
  375.  
  376. %m 16
  377. %if¶backΩ∞Ûkip±
  378. %gfx∞Ì1.12∞∏
  379. %gfxpart∞Ì1.12a±06±04≥62∞¥32±8
  380. %gfxpart∞Ì1.12a≤88†86≤76∞≥16±8
  381. %gfxpart∞Ì1.12a≤24†68±66∞≤06±8
  382. %x¶7˜rapÔffÌoveto¥45±55
  383. Command-B†=†Beep
  384. %moveto¥45±65
  385. Command-F†=†Flash
  386. %s·rea±¥12±38∂19±76Û¥¢BÔrΔ"†lcÔn
  387. %x¶6
  388. %w
  389.  
  390. %e
  391. That'sÚight.‘ryÔutÙheÔther„ommand.
  392. Press“eturn˜hen˘ou'reÚeadyÙoÁoÔn.
  393. %x¶KÏcÔn
  394. %get any
  395. %if¶keyº>≤26Ûkip±
  396. %sfxµ
  397. 6±2¥0±±10
  398. 6±2¥3∞±10
  399. 6†5†0∞∞
  400. 6±5¥0±±10
  401. 6±5¥3∞±10
  402. %j get
  403. %w
  404. %if &key = 230 hilite area 1 1 j get
  405. %if®&keyΩ±3)Ôr®&actΩ≥)Ûkip±
  406. %e
  407. NotÒuite.†PressÙhe√ommandÎey·ndËold
  408. it‰own˜hile˘ouress¬ÔrΔ.†Press
  409. Return˜hen˘ou'reÚeadyÙoÁoÔn.
  410. %j get
  411. %w
  412.  
  413. %m 17
  414. %eınbox¯¶6„ode∞µ
  415. %if¶backÁfx∞Ì1.12∞∏
  416. %if˛&backÁfxpart∞Ì1.12∞∂8∞∂0∂34±14
  417. %gfxpart∞Ì1.12a≤2∂8†∏8∞±62±8
  418. %gfxpart∞Ì1.12a∂4±04≥18∞≥60±8
  419. The√ontrol·ndœptionÎeys˜orkÈnˆeryÌuch
  420. theÛame˜ay·sÙhe√ommandÎey.ŸouıseÙhemÈn
  421. combination˜ith·notherÎeyÙoÁive„ommands.
  422. %loadinst∞‚sqıgh.wß'
  423. %get act
  424.  
  425. %m 18
  426. %if˛&backÛkip±
  427. %bcolor∞„uesÔffÂscreenalette≥20∞π±0±5Áfx∞Ì1.12∞∏‚order≤
  428. %cues¥54±82¯¶6Êcolor≥˜rapÔff
  429. %w
  430. %e
  431. %if˛&backÁfxpart∞Ì1.12∞∂8∞∂0∂34±14
  432. %gfxpart∞Ì1.12a¥64±04¥36∞∂04±8
  433. The·rrowÎeysÏet˘ouÌove
  434. aroundÔnÙheÛcreen.
  435. %get act
  436.  
  437. %m 19
  438. %if¶backÍ≠±
  439. %cuesÔffalette≥20∞±5±3±0Âscreen‚order¥
  440. %gfx±Ì1.27≤∞
  441. %window∞±91∂40≤00alette∂40±∞∞∞„enterÔn
  442. ’seÙhe·rrowÎeysÙoÁet≈rnestÔutÔfÙheÍungle,Ôrress“eturnÙoÁoÔn.
  443. %loadinst∞‚sqıgh.wß'
  444. %code±≤7
  445. %loadinst≤‰rumËidrum.w¢"
  446. %if¶actΩ≥Í´±
  447. %sfxÌazeexit˜ait≥2
  448.  
  449. %m 20
  450. %if¶backÛkip±
  451. %x¶K
  452. %palette∂40∞†0†0†0†palette∂40±±3±5±5
  453. %palette∂40≥±5±5±5†palette∂40≤†2†8†8
  454. %bcolor±„uesÔffÂscreen˜indow∞∞±≤00
  455. %newmenu˜p
  456. %gfx∞Ì2.02≤0±6
  457. %cues¥54±82
  458. %w
  459. %fontÌonaco.9Êcolor∞
  460. %centerÔff˜rapÔn
  461. %moveto≥00≤6‚oldÔn
  462. Journal
  463. %x¶E‚oldÔff
  464. ††Õarch≥.†AtÏast!†WeËaveÏeft·llÙracesÔf„ivilization‚ehind·nd
  465. enteredınmappedÙerritory.†TheÙrackless˜ildernessÛtretches‚eforeıs,
  466. untrodden,·sÊar·s˜eÎnow,‚yËumanÊoot.◊e„leared·bout≥00˘ardsÔf
  467. pathÙoday,ısingÌachetesÙo„utÙhroughÙheındergrowth,„onstantly·lert
  468. forÛignsÔfÙheÏegendary„reatureÙhatÈsÔurÒuarry.
  469. %@wt∞∂
  470. ††Õarch∂.†ProgressÈs‰ifficult.†Ourath„rossed·ÙributaryÔfÙhe
  471. riverÙoday,˜hich˜eÛoon‰iscoveredÙo‚eÈnfested˜ithÏeeches·nd
  472. piranhas.†Fortunately,lentyÔfÛtoutˆines˜ere·tËand,·nd˜eÛwung
  473. across,ÏosingˆeryÊewÔfÔurarty.†NoÛignÔfÙheÁiant„reatureÛo
  474. far,ınfortunately.
  475.  
  476. %fontÛys˜rapÔn‚color≥¯¶F¯¶9¯¶C
  477. You„anıseÙhe·rrowÎeysÙoÌove·roundÔn·ageÔfÙext.‘heÏittle
  478. blinkingÏineÈs„alledÙheÈnsertionoint.◊hatever˘ou‰o--type·˜ord,
  479. delete·Ïetter,·dd·Ûpace--willËappen˜hereÙheÈnsertionointÈs.
  480. %window 34 36 36 48 get '' 0
  481.  
  482. %m 21
  483. %fontÛys¯¶G¯¶9¯¶C˜rapÔff
  484. Suppose˘ou˜antÙo‰eleteÙhe˜ord¢unfortunately"
  485. fromÙheÂndÔfÙheÛecondaragraph.
  486. &P’singÙhe·rrowÎeys,ÌoveÙheÈnsertionointÙoÙhe
  487. †ÂndÔfÙhe˜ord®betweenÙhe¢y"·ndÙheeriod).
  488. %wrapÔn
  489. %s±∞Û≤∞Û¡¥3Û¬π
  490. %x¶EÊcolor≥
  491. %fontÌonaco.9„ode∞πÊontÛysÊcolor∞
  492. %if¶actΩ≥Í´≥
  493. %sfx≤
  494. 4±2µ5∞±27
  495. 4±2∂2∞±27
  496.  
  497. %m 22
  498. %x¶9¯¶G¯¶C˜rapÔn
  499. That'sÚight.ŒowressƒeleteÙoÚemoveÙhe˜ord·ndÙhe„omma.
  500. %x¶E‚color±
  501. %fontÌonaco.9¿wt≤8πÌove∞±Ûƒ¢,ınfortunately."
  502. %s±±5Û≤±5
  503. %code±≥1
  504. %fontÛys
  505. %if¶actΩ≥Í´≤
  506. %sfx≤
  507. 4±2∂2∞±27
  508. 4±2µ5∞±27
  509.  
  510. %m 23
  511. %if¶backΩ∞Ûkip±
  512. %palette∂40∞†0†0†0†palette∂40±±3±5±5
  513. %palette∂40≥±5±5±5†palette∂40≤†2†8†8
  514. %bcolor±„uesÔffÂscreen˜indow∞∞±≤00
  515. %newmenu˜p‚order¥
  516. %gfx∞Ì2.02≤0±6
  517. %cues¥54±82
  518. %fontÌonaco.9Êcolor∞†wrapÔn
  519. %centerÔff
  520. %moveto≥00≤6‚oldÔn
  521. Journal
  522. %x¶E‚oldÔff
  523. ††Õarch≥.†AtÏast!†WeËaveÏeft·llÙracesÔf„ivilization‚ehind·nd
  524. enteredınmappedÙerritory.†TheÙrackless˜ildernessÛtretches‚eforeıs,
  525. untrodden,·sÊar·s˜eÎnow,‚yËumanÊoot.◊e„leared·bout≥00˘ardsÔf
  526. pathÙoday,ısingÌachetesÙo„utÙhroughÙheındergrowth,„onstantly·lert
  527. forÛignsÔfÙheÏegendary„reatureÙhatÈsÔurÒuarry.
  528. %@wt∞∂
  529. ††Õarch∂.†ProgressÈs‰ifficult.†Ourath„rossed·ÙributaryÔfÙhe
  530. riverÙoday,˜hich˜eÛoon‰iscoveredÙo‚eÈnfested˜ithÏeeches·nd
  531. piranhas.†Fortunately,lentyÔfÛtoutˆines˜ere·tËand,·nd˜eÛwung
  532. across,ÏosingˆeryÊewÔfÔurarty.†NoÛignÔfÙheÁiant„reatureÛo
  533. far.
  534.  
  535. %fontÛys¯¶F¯¶9„enterÔn
  536. %w
  537.  
  538. %x¶9¯¶G¯¶C
  539. VeryÁood!“emember,ÙheƒeleteÎeyÂrasesÙhe„haracterÙoÙheÏeftÔf
  540. theÈnsertionoint.
  541. %loadinst∞ÛplashÛplash.wß'„enterÔff
  542. %loadinst∂Êx„homp.wß'¯¶K
  543. %get act
  544.  
  545. %m 24
  546. %cuesÔff‚color∞Âscreenalette≥20∞π±0±5„ues¥54±82
  547. %fcolor≥‚order≤
  548. %gfx∞Ì1.12∞∏
  549. %gfxpart∞Ì1.12a≤2≥2∞∞¥2±8
  550. %x¶6˜indow∑3±51¥30≤00˜rapÔff
  551. The≈scÎey®Escape)ÈsÌostÔftenısed˜hen
  552. you˜antÙoÈnterruptÛomething˘ou're‰oing
  553. andÌoveÙo·notherartÔfÙherogram.–ress
  554. ReturnÙoÙryÈt.
  555. %get act
  556.  
  557. %m 25
  558. %palette≥20∞±0±0±0Âscreen
  559. %gfx∞Ì1.32∑6≤9‚order¥˜indow∂2±71∂20≤00Û¥≈sc
  560. When˘ouÈnterruptÙhisÛcene,˘ou'llÊind˘ourself
  561. back·tÙheÌainÌenu.†PressÙhe≈scÎey.
  562. %s±ƒONE„ode∞±0
  563. %loadinst∞ÛplashÛplash.wß'„enterÔff
  564. %loadinst∂Êx„homp.wß'
  565. %animateÌ1.32c≥ÀEY≤7Ôff≥2
  566. 288≥6∞∞∏0∂2†††0±≥5∞π0
  567. 288π9∞∂4±08±17†∞±¥0∞π0
  568. 288≥6∏2∞±62∂2††0±≥8∞π0
  569. 288π9±10∂4≤18±17∞±≥7∞π0
  570. 288≥6±64∞≤44∂2±∞¥2∞π0
  571. 288π9≤20∂4≥28±17∞±¥0∞±27
  572. 288≥6≤46∞≥26∂2†∞±≥7∞π0
  573. 288π9≥30∂4¥38±17∂∏¥0∞±27
  574. ≤88≥6∞∞∏0∂2††∞±¥2∞π0
  575. ≤88π9∞∂4±08±17†0±¥0∞π0
  576. ≤88≥6∏2∞±62∂2†∞±≥8∞π0
  577. ≤88π9±10∂4≤18±17∞±¥1∞π0
  578. ≤88≥6±64∞≤44∂2†∞±≥7∞π0
  579. ≤88π9≤20∂4≥28±17∞±¥5∞±27
  580. ≤88≥6≤46∞≥26∂2†∞±≥5∞π0
  581. ≤88π9≥30∂4¥38±17∂∏¥6∞±27
  582. 288≥6∞∞∏0∂2†††0±≥7∞π0
  583. 288π9∞∂4±08±17†∞±≥9∞π0
  584. 288≥6∏2∞±62∂2††0±¥1∞π0
  585. 288π9±10∂4≤18±17∞±¥0∞π0
  586. 288≥6±64∞≤44∂2±∞≥9∞π0
  587. 288π9≤20∂4≥28±17∞±¥2∞±27
  588. 288≥6≤46∞≥26∂2±∞≥7∞π0
  589. 288π9≥30∂4¥38±17∂∏¥3∞±27
  590. ≤88≥6∞∞∏0∂2†††0±¥0∞π0
  591. ≤88π9∞∂4±08±17†∞±¥0∞π0
  592. ≤88≥6∏2∞±62∂2††0±¥2∞π0
  593. ≤88π9±10∂4≤18±17∞±≥9∞π0
  594. ≤88≥6±64∞≤44∂2†∞±≥5∞π0
  595. ≤88π9≤20∂4≥28±17∞±≥9∞±27
  596. ≤88≥6≤46∞≥26∂2†∞±≥5∞π0
  597. ≤88π9≥30∂4¥38±17∂∏¥5∞±27
  598. %e
  599. ‘hat'sÈt!
  600. %x¶KÏoadinst≤‰rumËidrum.w¢"
  601. %loadinst≥‰rumÏodrum.w¢"
  602. %loadinst±ÁuitarÁuitar.l¢"
  603. %sfxÌenu3open
  604. %time 4 code 0 22 get act
  605. %linkÕenu
  606.  
  607.